   5 .DUNGEON DICE
NT=0;CLEAR 
   1 .
   2 .
   3 .
   4 .
   5 .DUNGEON DICE
   6 .(C)1980 R.C. TIETJENS
   7 :RETURN ;CLEAR ;BC=99;FC=7
   8 CY=0;CX=-36;PRINT "DUNGEON DICE";GOSUB 290;&(10)=160
  10 :RETURN ;IF TR(1)CLEAR ;GOTO 40
  20 IF JY(1)CLEAR ;GOTO 300
  30 IF JX(1)CLEAR ;GOTO 400
  35 GOTO 10
  40 D=RND (20)
  50 IF D=1GOTO F
  60 IF D=20GOTO C
  70 %(E)=D÷10+48;%(E+1)=RM+48
  75 %(J)=E+(D÷10=0)
  80 CALLP
  85 MU=%(E);MU=%(E+1)
  90 FOR T=0TO 199;NEXT T
  95 GOTO 10
 100 %(J-2)=26629
 110 %(J)=E+5
 120 CALLP;%(J-2)=-26619
 121 NT=4
 125 CY=-40;PRINT "123+6004+60000",
 126 NT=0
 130 D=RND (20)
 140 CY=-8;CX=-78;IF D<15PRINT "NORMAL DAMAGE";GOTO 90
 150 GOSUB 150+D
 160 GOTO 90
 165 PRINT "MAXIMUM DAMAGE";RETURN 
 166 PRINT "TWO DAMAGE ROLLS";RETURN 
 167 PRINT "DOUBLE ",;GOTO 165
 168 PRINT "DAMAGE ROLL × LEVEL/HD";RETURN 
 169 PRINT "LEVEL/HD × ",;GOTO 165
 170 PRINT "INSTANT DEATH";RETURN 
 200 %(J-2)=26629
 210 %(J)=E+10
 220 CALLP;%(J-2)=-26619
 221 NT=20
 225 CY=-40;PRINT "100101100+20220110-110000",;NT=0
 230 D=RND (20);CY=0;CX=-78
 240 IF D>6PRINT "MISSED!";GOTO 90
 250 GOSUB 260+D
 260 GOTO 90
 261 GOSUB 270;GOTO 130
 262 GOSUB 275;GOTO 130
 263 GOSUB 270;GOTO 280
 264 GOSUB 275;GOTO 280
 265 PRINT "WEAPON BREAKS IF ",#2,RND (6)+RND (6)," PLUS";PRINT "WEAPON PLUSES TOTAL 7 OR";PRINT "LESS.";RETURN 
 266 PRINT "STUMBLE! IF YOUR DEXTERITY";PRINT "IS LESS THAN",#3,RND (20),", FALL.
 267 PRINT "ROLL NON-MAGICAL AC OR";PRINT "LESS ON 1D10 TO RISE. IF ";PRINT "ANYONE HELPS, EACH ROLL.";RETURN 
 270 PRINT "HIT YOURSELF";RETURN 
 275 PRINT "HIT NEAREST ALLY";RETURN 
 280 PRINT "HALF NORMAL DAMAGE";RETURN 
 290 BOX -3,0,84,12,3;BOX -3,0,82,10,3;RETURN 
 300 D=RND (100)-1
 310 %(E+20)=D÷10+48;%(E+21)=RM+48;%(E+22)=37;%(E+23)=0
 320 %(J)=E+20;CALLP
 330 MU=%(E+20);MU=%(E+21)
 340 GOTO 90
 400 CY=0;NT=1;INPUT "# OF DICE?"N
 410 INPUT "# OF SIDES?"S
 415 INPUT "PLUS?"Q
 420 D=0;FOR T=1TO N;D=D+RND (S);NEXT T
 422 D=D+Q
 425 IF D<100GOTO 70
 430 IF D>99 %(E+20)=D÷100+48;%(E+21)=RM÷10+48;%(E+22)=RM+48;%(E+23)=0
 435 IF D>999CY=16;PRINT D;GOTO 90
 440 %(J)=E+20;CALLP
 450 MU=%(E+20);MU=%(E+21);MU=%(E+22)
 460 GOTO 90
CLEAR 
>
CLEAR 
%(20200)=-43
%(20202)=9013
%(20204)=-26619
%(20206)=20213
%(20208)=-13871
%(20210)=0
%(20212)=0
%(20214)=0
%(20216)=0
CLEAR 
%(20218)=18760
%(20220)=8532
%(20222)=17920
%(20224)=19797
%(20226)=19522
%(20228)=8517
%(20230)=0
%(20232)=0
CLEAR 
%(20082)=100
%(20086)=20213
%(20088)=200
%(20096)=20206
%(20108)=20200
CLEAR ;:RETURN ;&(10)=160;RUN 
